SeekEOF                  Skips Blanks, Tabs, EOLN, Then Checks for EOF

 SeekEOF(var TFile : text); Boolean;                                     [TP]

    Checks to see if any text other than white space (blanks, tabs, end-
    of-line characters) is left in the file TFile. If there is no more
    text, this function returns TRUE; otherwise, it returns FALSE. TFile
    must have been previously opened for input (using Assign and Reset).

           TFile    A text file.

  -------------------------------- Example ---------------------------------

           Assign(TFile,'MYFILE.TXT');
           Reset(TFile);
           while not SeekEOF(TFile) do begin
             Readln(TFile,Line);            { process non-empty line }
           end;
           Close(F);